home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / FGL402D.ZIP / EXBAS.ARJ / TEMP / 10-16.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-01-20  |  828 b   |  46 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DIM Arrow    AS STRING*35
  6. DIM Arrow256 AS STRING*70
  7. DIM Buffer   AS STRING*70
  8.  
  9. DATA &h00,&h00,&h00,&hF0,&h00
  10. DATA &h00,&h00,&h00,&hFF,&h00
  11. DATA &hFF,&hFF,&hFF,&hFF,&hF0
  12. DATA &hFF,&hFF,&hFF,&hFF,&hFF
  13. DATA &hFF,&hFF,&hFF,&hFF,&hF0
  14. DATA &h00,&h00,&h00,&hFF,&h00
  15. DATA &h00,&h00,&h00,&hF0,&h00
  16.  
  17. IF FGtestmode(13,1) = 0 THEN
  18.    PRINT "This program requires a 320 x 200 EGA graphics mode."
  19.    STOP
  20. END IF
  21.  
  22. FOR I = 1 TO 35
  23.    READ Item
  24.    MID$(Arrow,I) = CHR$(Item)
  25. NEXT
  26.  
  27. OldMode = FGgetmode
  28. FGsetmode 13
  29. FGunpack Arrow, Arrow256, 35
  30.  
  31. FGvbinit
  32. Handle = FGvbdefine(Buffer,10,7)
  33. Status = FGvbopen(Handle)
  34. FGsetcolor 9
  35. FGfillpage
  36. FGmove 0, 6
  37. FGdrwimage Arrow256, 10, 7
  38.  
  39. FGvbpaste 0, 9, 0, 6, 156, 101
  40. FGwaitkey
  41.  
  42. FGvbclose
  43. FGsetmode OldMode
  44. FGreset
  45. END
  46.